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| **F ILE®®1D®*BASUDFRM 
| . 
BBBBBBBB AAAAAA SSSSSSSS UU U DDDDDDDD = FFFFFFFFFF 
BBBBBBBB AAAAAA SSSSSSSS UU UU DDDDDDDD = FFFFFFFFFF 
8B BB AA AA SS UU UU DD DD FF 
e8 BB AA AA $5 UU UU DD DD FF 
88 BB AA AA 35S UU UU DD DD FF 
BB BB AA AA SS UU UU DD DD FF 
BBBBBBBB = AA AA SSSSSS_ «UU UU DD DD FFFFFFFF 
BBBBB AA AA SSSSSS__— UU U DD DD FFFFFFFF 
BB BB AAAAAAAAAA S$ UU UU DD DD FF 
BB BB AAAAAAAAAA SS UU UU DD DD FF 
88 BB AA AA SS UU UU DD DD FF 
BB BB AA AA SS UU UU DD DD FF 
BBBBBBBB = AA AK SSSSSSSS — _UUUUUUUUUU  DDDDDDDD-—sFF 
BBBBBBBB = AA AA SSSSSSSS_ _ UUUUUUUUUUDDDDDDDD~—séFF 
LL HII SSSSSSSS 
LL HII SSSSSSSS 
LL 1] S$ 
LL 1] SS 
LL 1] SS 
LL 1] SS 
LL 11 SSSSSS 
LL 11 SSSSSS 
LL 1] S$ 
LL 1] $$ 
LL 1] SS 
LL 11 SS 
LLLLLLLLLL §«©=sTIIII = SSSSSSSS 
LLLLLLLLLE «= sTTTII «= SSSSSSSS 
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4 

4 

Basic READ memor 
Fi iF) 


cry 0001 © MODULE BASSSUDF_RM ( 

; g Oe IDENT = *1-005' le: BASUDFRM.B 

3 00 ) sz 

tos sare 

$ $ 0006 : ROAR RAAARERAAAAAAAAAA AREER AAEE AERA AAAEEARAAERERAREEEARRARERREEEEEE 
: * - 
: 8 008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 3 009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
P4 19 Bae : :* ALL RIGHTS RESERVED. * 
Ps :* oy 
; i Bot¢ 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED a 
s 1 001 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i? tte : - TRANSFERRED. ® 
3 ‘® ® 
H 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 b0S4 : CORPORATION. * 
3 'e * 
; 33 $098 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
> (6 0024 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
c-- ae 0025 1 !* * 
: 26 0026 1 is . 
: a7 002 LL eee eee eR RARER AAR AAA AER AERA EERE R ERATE ATTA AAA TEAARAREKEREKEAEEAE EATER 
:; 628 oes 1! 

3 $3 0029 1 

: 0 0030 1 !++ 

; 31 0031 1 ! FACILITY: 

oe * O03 1! 

ee 0035 1! BASIC support library - not user callable 

; %% 0034 1! 

; 35 0035 1 ! ABSTRACT: 

: 36 0036 1! 

3 4 sit 44 : Implement UDF Level of abstraction - element transmitter for READ. 

3 39 0039 1! 

3 40 0040 1 ! ENVIRONMENT: 

3 41 0041 1! 

3 $$ Oba ! User access mode - AST reentrant 

; $8 pee : AUTHOR: Donald G. Petersen, CREATION DATE: 19-Dec-78 

; 46 poeg 1 ! MODIFIED BY: 

; «47 047 1! 

; 648 0048 1! DGP 19-Dec-78, : VERSION 1-001 

: 49 0049 1 | 1-001 = original. 6GP 19-Dec-78 

; 0050 1! 1-6 - Make all routines global. DGP 20-Dec-78 

ae 0051 1 ! 1-005 - Put code in proper PSECT. JBS 21-DEC-78 

3 26 4 1 ! 1-004 = Change prefix for stack frame names to BSF$. JBS 08-FEB-1979 

g a7 Bez : : 1-005 = Change ISBSL_MAJ_F_PTR to ISBSA_MAJ_F_PTR. JBS 24-JUL-1979 

— 055 1 

; & 056 1 '<BLF/PAGE> 
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; 8 =e 2 

; 9 3 1 ! SWITCHES 

Fi 060 1 

3 ? ‘sd : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 664 We 1! 

; 6 064 1 ! LINKAGES 

; 66 0065 1! 

s 667 8008 1 

>; 68 0067 1 REQUIRE ‘RTLIN:OTSLNK'; ! define all Linkages 

: 9 paoe 1 

; 0 497 1! 

; 71 0498 1 ! TABLE OF CONTENTS: 

; 7 0499 1! 

3: 0500 1 

; 74 0501 1 FORWARD ROUTINE ; 

aes, b20§ 1 BASSSUDF _RMFO : JSB_UDFO NOVALUE, ! Initialize READ memory 
jae 0503 1 BASSSUDF_RMF1 : CALC_CCB NOVALUE, ! element transmitter 

3 as B208 : BASSSUDF-RMF9 : JSB_ODF9 NOVALUE; ! end of memory READ 

; 0506 1! 

; 0507 1 ! INCLUDE FILES: 

; «CBI 0508 1! 

; 0509 1 : . 

; +4 9318 : REQUIRE ‘*RTLML:OTSLUB'; ! Logical unit block offsets 
3 H R838 ! REQUIRE ‘RTLML:OTSISB'; ! 1/0 statement block offsets 
: 44 9559 : REQUIRE "RTLIN:BASFRAME'; ! Basic frame offsets from R11 
3 34 1963 : REQUIRE "RTLIN:RTLPSECT'; ! Declare psects macros 

3 91 1120 1 LIBRARY ‘RTLSTARLE'; 

3 4 145) 1 

eS. 11 ; 1! 

; 94 112 1 ! MACROS: 

; 1124 1! 

3; © phy eee NONE 

; o7 1156 1! 

; 98 1127 1 ! EQUATED SYMBOLS: 

; 299 1128 1! 

: 100 1129 1! NONE 

3 191 1130 1! 

s ¥ § 1131 1 =! PSECTS: 

: 10 1136 1! ays 
3 Hr 11 1 DECLARE_PSECTS (BAS); ' Declare PSECTs for BAS facility 
3; 105 1134 1! 

: 106 1135 1 =! OWN STORAGE: 

. Te 11 § 1! 

; 108 11 1! NONE 

s 109 1138 1! 

s 110 1139 1 =! EXTERNAL REFERENCES: 

WR th 1140 1! 

: 16 1141 1 

s 11 Hp 1 EXTERNAL ROUTINE 

s 116 114 1 BASSSUDF_RL1 : CALL_CCB NOVALUE, 


ne (23 


YeNsRTe SRedeASUbEAN.03951 


198 94:88:23 


: 
~ten- 


xo 
Cee 
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3 } 9 11468 } GLOBAL ROUTINE BASSSUDF_RMFO (FORMAT_ADR) : JSB_UDFO NOVALUE = ! 
Ss é 1150 1 !+¢ 
: : ? 1% 1 : FUNCTIONAL DESCRIPTION: 
; 125 11 § , 3 Call REC Level of initialization to get all of the buffer pointers set 
S § 1154 1! up. 
3 1 1155 1! 
>; 128 1338 1! 
; : 9 Wet : FORMAL PARAMETERS: 
s 331 1139 1 3 FORMAT_ADR.rl.r not used 
3 . 1160 1! 
? 1161 1°! IMPLICIT INPUTS: 
: «134 1196 1! 
3 135 1163 1! NONE 
; 136 1164 1! | 
gs ior 1165 1 ! IMPLICIT OUTPUTS: 
> «138 1166 1! | 
3; 139 1167 1! NONE 
3: 140 1168 1! 
3 «(161 1169 1 =! ROUTINE VALUE: 
3 16¢ 1170 1! 
; «146 11771 1! NONE 
3 144 1178 1! 
3 «6145 1175 1°! SIDE EFFECTS: 
> 146 1174 1! | 
: 147 1175 1! NONE | 
3 «6148 1176 1! 
> «4149 1177 1 fe 
; 150 1178 #1 
. Ty 1179 2 BEGIN 
3 13¢ 1180 2 
; 1181 EXTERNAL REGISTER 
> 154 1182 CCB = K_CCB_REG : REF BLOCK CO, BYTE]; 
; 155 1183 
s 36 1184 2 '¢ 
s 37 1185 2 ! Call record level routine to initialize the various buffer pointers in 
; 158 1186 ' the ISB. 
3 159 1187 !- 
: 160 1188 
3; «161 1189 § BASSSREC_RMFO (); 
: ioe 1190 RETURN; 
3; 1191 «1 ND; ‘End of BASSSUDF_RMO 

-TITLE BASSSUDF_RM 

IDENT \1-005\ 

-EXTRN BASSSUDF_RL1, BASSSREC_RMFO 

-EXTRN BASSSREC"RMF1, BASSSREC_RMF9 


-PSECT _BASSCODE,NOWRT, SHR, PIC.2 


000000006 00 17 00000 BASSSUDF_RMFO:: 
JMP ss BASSSREC_RMFO : 1189 
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; Routine Size: 6 bytes, Routine Base: _BASSCODE + 0000 


164 1192 1 | 


Kk 15 
BASSSUDF _RM 16-Sep-1984 01:22:1 AX-11 Bliss-32 V4.0-74 
1-008 17 308-1 384 91:88:03 EBASRTL- SRE BASUDF RM.B32;1 


GLOBAL ROUTINE BASSSUDF_RMF1 (ELEM_TYPE, ELEM_SIZE, ELEM_ADR, FORMAT) : CALL_CCB NOVALUE = 
lee 

' FUNCTIONAL DESCRIPTION: 

Call BASSSUDF_RL1. Then update CUR_DATA in the Last major frame upon 

return. This done on each element Eransmitter rather than at the end 


because there could be an embedded function in the element List which 
does a READ. 


FORMAL PARAMETERS: 


ELEM_TYPE.rlu.v Type code of user 1/0 List element 

ELEM_SIZE.rlu.v Size of List element 

ELEM_ADR.rlu.r Adr of where to store the element 

Points to a descriptor for a gering 

FORMAT. rlu.v Format character following a Prompt string 
IMPLICIT INPUTS: 

ISBSA_MAJ_F _PTR pointer to last major frame 

LUBSA_BUF PTR pointer in input buffer 
IMPLICIT OUTPUTS: 

BSFSA_CUR_DTA pointer to current location in DATA area in Last 


major frame 
ROUTINE VALUE: 


SOOOCOCO COO OOOO O0O0OMMMmmo CONN ASAIN NNO 
ARAVLSSSLESLAVLSSSLERRAVSSSSVSARAN TAS SSIF 
FF FWWMWANWAIWIAIN RII NININININININ 2 2 tO St OS SQOOOCOCOOCOOOOOOOOWOO 


a ee a a ee ee ee ee ee ee ee ee a a ad ed 
ae 
PWN OODNOAUES WIN $$ O ODNAUES WN O ODNAUE WN 20 OO NAY EWN CO OONOUEW 


RIPPIN ININININININININYIPDNYDNININININININININININININININYIAIPYININUNIPYPIPIPINIPUIPUPUNININPINYINININID) 2 Os 


POPSPONNIPINPONONININININININIDNINININIPININID 8 a tO 
RIMININIPIMINIPININYIAPIPININIAIAIPIRY a nn nr i i i kk kd kk ad ad a a ot = = = = 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 

06 
07 EXTERNAL REGISTER 
+4 CCB = K_CCB_REG : REF BLOCK CO, BYTE); 
10 LOCAL 
12 BMF : REF BLOCK CO, BYTE) FIELD (BSFSMAJOR_FRAME); 
1 '¢ 
14 ! Pick up R11 which points into the last major frame from ISB. Call 
15 ! BASSSUDF_RL1 to do the actual element transmit. Update CUR_DATA in the 
16 ! frame. Return. 
18 45 i 
19 4 BMF = .CCB CISBSA_MAJ_F PTR); 
$9 rt BASSSUDF_RL1 (.ELEM_TYPE, .ELEM_SIZE, .ELEM_ADR, .FORMAT); 
22 49 '¢ 


; 3 1250 : Add one to the current buffer pointer because of the general algorithm 
: 4 1251 ! INPUT uses. 
° 5 : ¢ !< 
: 5 1254 BMF CBSFSA_CUR_DTA] = .CCB CLUBSA_BUF_PTR] + 1; 
; 8 1255 RETURN; 
; 9 1256 END; 'End of BASSSUDF_RMF1 
0004 00000 -ENTRY BASSSUDF _RMF1, Save R2 
52 FF48 8B 0 BR 006 MOVL -184(CCBY, BMF 
4 Oc AC 7D 0000 MOVQ ELEM_ADR, -(SP 
7E 04 AC 7D 00008 MOVO  ELEM"TYPE, -(SP 
000000006 00 04 FB OOO0F CALLS #4, BASS$SUDF_RL1 
0087 (C2 BO AB 01 4H atts sents #1, -80(CCB), 135(BMF) 


; Routine Size: 30 bytes, Routine Base: _BASSCODE + 0006 


230 1257 1 
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Page 


A 
(4), 


-—_—— 
NOW 


ot all ieee 9 ss 43 UBASRIL SRE Seasubran.039; 1 


: g } 33 } GLOBAL ROUTINE BASSSUDF_RMF9 : JSB -UDF9 NOVALUE = 
3 4 1260 1 !44 

: 2 : 6 i FUNCTIONAL DESCRIPTION: 

: 237 1263 1! Call REC Level to waste time. 
3 8 1264 1 

3 9 1265 1! 

: 40 1 98 1 i FORMAL PARAMETERS: 

: 41 1267 1! 

3 ¢g 1268 1} NONE 

3 4 1 +4 1 i 

3 44 1270 1°! IMPLICIT INPUTS: 

: $22 seh NONE 

; 247 1 tg 1! 

3 ses 1274 1 IMPLICIT OUTPUTS: 

: 49 1275 1: 

3 $20 1276 1: NONE 

: $23 1398 } ROUTINE VALUE: 

5 $3 1st 1! 

3: 254 1280 1: NONE 

: $32 15B3 i SIDE EFFECTS: 

3 gor 1388 1! 

: 258 1284 1! NONE 

3 2 1285 1: 

3; 260 1286 1 i- 

3s 26) 1287 1 

3 soe 1288 2 BEGIN 

; 26 1289 2 

3: 264 1290 2 EXTERNAL vx 

3; 265 1291 2 CCB = K_CCB_REG : REF BLOCK CO, BYTE]; 
; 266 1636 2 

s 267 1295 2 '¢ 

: 268 1294 § i Call record Level 

: 269 1295 ie 

; 270 1296 

; 271 1297 BASSSREC_RMF9 (); 

s ee 1298 RETURN; 

3; 273 1299 1 END; 'End of BASSSUDF_RMF9 


000000006 00 17 00000 BASS$SUDF_RMF9:: 
JMP BASSSREC_RMF9 


; Routine Size: 6 bytes, Routine Base: _BASSCODE + 0024 


'End of module BAS$SUDF _RM 
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PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 42 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Soscsees Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASUDFRM/OBJ=0BJ$:BASUDFRM MSRC$:BASUDFRM/UPDATE=(ENH$:BASUDF RM) 


Size: 42 code + 0 data bytes 

Run Time 00:09.6 

Fleeced tes: 00:21.7 

Lines/CPU Min: 8135 

Lexemes/CPU-Min: 42199 

pnery Used: 115 pages 
Compi ation Complete 


sem —— ———= 


0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


